home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 52
/
052.d81
/
spanish main
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
11KB
|
304 lines
1 rem " [211]panish, [197]asy as [193]-[194]-[195] (c) 1988 by [212]om [195]anfield"
10 br=53280:sc=53281:print"[147] [208]lease wait...[204]oading quiz."
11 s=54272:pokes+24,15:s4=s+4:s1=s+1
12 pokes1,21:pokes+5,9:pokes+6,10:pokes4,32:pokes4,33
329 dimh,d,q,x,y,t%,e%,sl%,ca%,tc%,aa,bb,xx,yy,ao,bo,xo,yo,an,bn,xn,yn,at,xt
330 dimcc,cn,co,zz,zn,zo,tb,eo,en,pg,pc%,ct%,w%(29),c%(29):pc%=0
331 dime$,er$,sl$(2,2,44),el$(2,2,44)
332 dimaq$(2,3),lv$(3),ph$(3),sc$(4)
335 foraa=0to2:forbb=0to2:readaq$(aa,bb):next:next:readaq$(1,3)
336 foraa=0to2:readlv$(aa):readph$(aa):next
337 foraa=0to4:readsc$(aa):next
340 :
341 open2,8,2,"questions"
345 forh=0to2:fori=0to2:forj=0to44:input#2,sl$(h,i,j):input#2,el$(h,i,j)
347 next:next:next:close2
350 ifd=0then360
351 c%(0)=int(rnd(0)*40)
352 pokebr,7:pokesc,7:poke214,7:print:printtab(10)" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [155]*"
353 printtab(10)"[176][190] [188][174][155] "
354 printtab(10)"[221] [221][155] "
355 printtab(10)"[221] [210][197][214][201][211][201][206][199][160][209][213][201][218] [221][155] "
356 printtab(10)"[221] [221][155] "
357 printtab(10)"[173][187] [172][189][155] "
358 printtab(10)" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [155] "
359 printtab(10)"* "
360 forx=1to29
370 c%(x)=int(rnd(0)*45)
380 fory=0tox-1:ifc%(x)=c%(y)then370
390 next:next:pokes4,32:pokes4,33
395 tc%=0:t%=0:pc%=0:ct%=13
400 ift%<30thencc%=ct%:goto410
401 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [155]*"
402 print"[176][190] [188][174][155] "
403 print"[221] [209]uiz complete, cannot continue [221][155] "
404 print"[173][187] [172][189][155] "
405 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [155] "
406 print"* "
407 goto1118
410 ifd=3then2370
425 ifd<>1thenpokebr,9:pokesc,9
430 print"[147]"tab(12)" [176][192][192][192][192][192][192][192][192][192][174] [155]*"
440 printtab(12)"[176][190] [188][174][155] "
450 printtab(12)"[221] [211][208][193][206][201][211][200] [221][155] "
460 printtab(12)"[173][187] [172][189][155] "
470 printtab(12)" [173][192][192][192][192][192][192][192][192][192][189] [155] "
471 printtab(12)"* ":ifd=1then571
475 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [155]*"
476 print"[176][190] [188][174][155] "
477 print"[221] [205]ake selections with [146][195][210][211][210] keys or [221][155] "
478 print"[221] press letter. [212]hen press [146][210][197][212][213][210][206]. [221][155] "
479 print"[221] [197]ach quiz contains 30 questions. [221][155] "
480 print"[221] [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] [221][155] "
481 print"[221][150] [204][197][214][197][204] [201] [221][154] [204][197][214][197][204][160][201][201] [221] [204][197][214][197][204][160][201][201][201] [221][155] "
482 forx=0to2:print"[221] [221] [221] [221][155] "
483 print"[221]"aq$(0,x)"[221]"aq$(1,x)"[221]"aq$(2,x)"[221][155] ":next
484 print"[221] [221] [221] [221][155] "
485 print"[221] [221]"aq$(1,3)"[221] [221][155] "
486 print"[173][187] [172][189][155] "
487 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [155] "
488 print"* "
505 ifd=2then2010
520 yy=14:yn=14:xx=2:xn=2:aa=0:bb=0:goto2510
530 gete$:ife$=""then530
540 pokes4,32:pokes4,33
550 goto2020
570 for x=7to12:poke781,x:sys59903:next:forx=21to24:poke781,x:sys59903:next
571 print"[176][192][192][192][192][192][192][192][192][192][192][192][174][146] [176][192][192][192][192][192][192][192][192][192][192][192][174]"
572 print"[221] [157][157][157][157][157][157][157][157][157]"lv$(aa)
573 printtab(11)"[145] [221]"tab(26)"[221] [157][157][157][157][157][157][157][157][148]"ph$(bb)
574 printtab(37)"[145] [221]"
575 print"[171][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][178][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][179]"
576 print"[221] [195]orrect answers: [146] [221] [208]ercent: [146] [221]"
577 print"[173][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][177][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][179]"
578 printtab(11)"[221] [209]uestion: [146] [221] [198]1 = [197]xit [221]"
579 printtab(11)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][189]":goto590
580 t%=t%+1:ift%>29thenpokes1,21:pokes4,32:pokes4,33:goto1010
590 for x=13to20:poke781,x:sys59903:next
595 cc%=cc%+1:ifcc%=7orcc%=13thencc%=cc%+1
597 ifcc%=15thencc%=2
600 pokebr,cc%:pokesc,cc%
607 poke214,8:print:iftc%>9thenprinttab(18)tc%:printtab(18)"[145] [145]":goto609
608 printtab(19)tc%"[145]"
609 ift%>0thenpc%=int(tc%/t%*100+.5)
610 ifpc%=100thenprinttab(33)"100%":goto613
611 ifpc%>9thenprinttab(33)pc%"[157][157][157][157] %":goto613
612 printtab(34)pc%"[157][157][157][157] %"
613 ift%>8thenprinttab(22)t%+1:printtab(22)"[145] ":goto615
614 printtab(23)t%+1
615 print""sl$(aa,bb,c%(t%))
616 print"";:forx=1tolen(sl$(aa,bb,c%(t%))):print"[192]";:next:print
620 w%(1)=c%(t%)
630 forx=2to4
640 w%(x)=int(rnd(0)*30)
650 fory=1tox-1:ifw%(x)=w%(y)then640
660 next:next
670 ca%=int(rnd(1)*4)+1:ifca%=1then690
680 h%=w%(1):w%(1)=w%(ca%):w%(ca%)=h%
690 printtab(tb)"[193]) "el$(aa,bb,w%(1))
700 printtab(tb)"[194]) "el$(aa,bb,w%(2))
710 printtab(tb)"[195]) "el$(aa,bb,w%(3))
720 printtab(tb)"[196]) "el$(aa,bb,w%(4))
725 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
726 print"[221] [213]se [146][195][210][211][210] keys or press letter to [221]"
727 print"[221] make selection. [212]hen press [146][210][197][212][213][210][206]. [221]"
728 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][145][145][145]"
735 e%=1:en=1
740 pokes1,21:pokes4,32:pokes4,33
741 gete$:ife$=""then741
742 ife$="[133]"thenct%=cc%-1:pokes4,32:pokes4,33:goto1010
743 ife$<>""then753
744 e%=e%+1:ife%=5thene%=1
745 goto756
753 ife$<>"[145]"then760
754 e%=e%-1:ife%=0thene%=4
756 eo=en:en=e%
757 poke214,eo+14:print:printtab(tb+3)el$(aa,bb,w%(eo))
758 poke214,en+14:print:printtab(tb+3)""el$(aa,bb,w%(en)):goto740
760 ife$=chr$(13)then770
765 ife$<"a"ore$>"d"then740
767 e%=asc(e$)-64:goto756
770 ife%=ca%then900
780 poke214,21:print:print" [211]orry, the correct answer is: "
785 print" [145]"
790 printtab(19-int(len(el$(aa,bb,w%(ca%)))/2+.5))""chr$(34);
791 printel$(aa,bb,w%(ca%))chr$(34):pokes1,11:pokes4,32:pokes4,33
810 fori=1to4650:next
820 goto580
900 poke214,21:print:print" [145]"
901 printtab(18-int(len(el$(aa,bb,w%(ca%)))/2+.5))""chr$(34);
904 printel$(aa,bb,w%(ca%))chr$(34):pokes4,32:pokes4,33
905 pri